package Class::Value::URI::fax;

use strict;
use warnings;


our $VERSION = '0.03';


use base 'Class::Value::SemanticAdapter';


__PACKAGE__->mk_boolean_accessors(qw(nofuture));


sub semantic_args {
    my $self = shift;
    (
        $self->SUPER::semantic_args(@_),
        nofuture => $self->nofuture,
    );
}


1;


__END__

{% USE p = PodGenerated %}

=head1 NAME

{% p.package %} - value class for fax URIs

=head1 SYNOPSIS

    {% p.package %}->new;

=head1 DESCRIPTION

This value class uses the L<Class::Value> mechanism and is an adapter for
L<Data::Semantic::URI::fax> - see there for more information.

=head1 METHODS

=over 4

{% p.write_methods %}

=back

{% p.write_inheritance %}

{% PROCESS standard_pod %}

=cut

